home *** CD-ROM | disk | FTP | other *** search
/ The Animator's Guide to 2D Computer Animation / 2DAnimationGuide.iso / Software / Animo v3.1 Demo / data / PSInit < prev   
Encoding:
Text File  |  1999-07-07  |  7.4 KB  |  245 lines
  1. %//########################################################################
  2. %//    CAS PSInit file
  3. %//########################################################################
  4. % **** DO NOT CHANGE THIS UNLESS YOU KNOW WHAT YOU ARE DOING ****
  5. %
  6. % Use defined parts later on..
  7.  
  8. /StandardEncoding [
  9. /.notdef /.notdef /.notdef /.notdef       % 000-037  
  10. /.notdef /.notdef /.notdef /.notdef    
  11. /.notdef /.notdef /.notdef /.notdef    
  12. /.notdef /.notdef /.notdef /.notdef     
  13. /.notdef /.notdef /.notdef /.notdef
  14. /.notdef /.notdef /.notdef /.notdef
  15. /.notdef /.notdef /.notdef /.notdef
  16. /.notdef /.notdef /.notdef /.notdef
  17. /space /exclam /quotedbl /numbersign      % 040-077
  18. /dollar /percent /ampersand /quoteright
  19. /parenleft /parenright /asterisk /plus
  20. /comma /hyphen /period /slash
  21. /zero /one /two /three
  22. /four /five /six /seven
  23. /eight /nine /colon /semicolon
  24. /less /equal /greater /question
  25. /at /A /B /C                              % 100-137
  26. /D /E /F /G
  27. /H /I /J /K
  28. /L /M /N /O
  29. /P /Q /R /S
  30. /T /U /V /W
  31. /X /Y /Z /bracketleft
  32. /backslash /bracketright /asciicircum /underscore
  33. /quoteleft /a /b /c                       % 140-177
  34. /d /e /f /g
  35. /h /i /j /k
  36. /l /m /n /o
  37. /p /q /r /s
  38. /t /u /v /w
  39. /x /y /z /braceleft
  40. /bar /braceright /asciitilde /.notdef     
  41. /.notdef /.notdef /.notdef /.notdef       % 200-237
  42. /.notdef /.notdef /.notdef /.notdef
  43. /.notdef /.notdef /.notdef /.notdef    
  44. /.notdef /.notdef /.notdef /.notdef
  45. /.notdef /.notdef /.notdef /.notdef    
  46. /.notdef /.notdef /.notdef /.notdef
  47. /.notdef /.notdef /.notdef /.notdef
  48. /.notdef /.notdef /.notdef /.notdef       
  49. /.notdef /exclamdown /cent /sterling      % 240-277
  50. /fraction /yen /florin /section
  51. /currency /quotesingle /quotedblleft /guillemotleft
  52. /guilsinglleft /guilsinglright /fi /fl
  53. /.notdef /enddash /dagger /daggerdbl
  54. /periodcentered /.notdef /paragraph /bullet
  55. /quotesinglbase /quotedblbase /quotedblright /guillemotright
  56. /ellipsis /perthousand /.notdef /questiondown 
  57. /.notdef /grave /acute /circumflex        % 300-337
  58. /tilde /macron /breve /dotaccent 
  59. /dieresis /.notdef /ring /cedilla
  60. /.notdef /hungarumlaut /ogonek /caron
  61. /emdash /.notdef /.notdef /.notdef
  62. /emdash /.notdef /.notdef /.notdef
  63. /emdash /.notdef /.notdef /.notdef
  64. /emdash /.notdef /.notdef /.notdef
  65. /.notdef /AE /.notdef /ordfeminine        % 340-377
  66. /.notdef /.notdef /.notdef /.notdef 
  67. /Lslash /Oslash /OE /ordmasculine
  68. /.notdef /.notdef /.notdef /.notdef 
  69. /.notdef /ae /.notdef /.notdef 
  70. /.notdef /dotlessi /.notdef /.notdef
  71. /lslash /oslash /oe /germandbls
  72. /.notdef /.notdef /.notdef /.notdef 
  73. ] def
  74.  
  75. /Latin1Enc [
  76. /dotlessi /ring /.notdef /.notdef       % Codes 0-31 (character
  77. /.notdef /.notdef /.notdef /.notdef     %   components required to
  78. /.notdef /.notdef /.notdef /.notdef     %   make all the composite
  79. /.notdef /.notdef /.notdef /.notdef     %   characters work).
  80. /.notdef /.notdef /.notdef /.notdef
  81. /.notdef /.notdef /.notdef /.notdef
  82. /.notdef /.notdef /.notdef /.notdef
  83. /.notdef /.notdef /.notdef /.notdef
  84. /space /exclam /quotedbl /numbersign    % Codes 32-63
  85. /dollar /percent /ampersand /quotesingle
  86. /parenleft /parenright /asterisk /plus
  87. /comma /hyphen /period /slash
  88. /zero /one /two /three
  89. /four /five /six /seven
  90. /eight /nine /colon /semicolon
  91. /less /equal /greater /question
  92. /at /A /B /C                            % Codes 64-95
  93. /D /E /F /G
  94. /H /I /J /K
  95. /L /M /N /O
  96. /P /Q /R /S
  97. /T /U /V /W
  98. /X /Y /Z /bracketleft
  99. /backslash /bracketright /circumflex /underscore
  100. /grave /a /b /c                         % Codes 96-127
  101. /d /e /f /g
  102. /h /i /j /k
  103. /l /m /n /o
  104. /p /q /r /s
  105. /t /u /v /w
  106. /x /y /z /braceleft
  107. /bar /braceright /tilde /.notdef        % NB code 127 is unused
  108. /.notdef /.notdef /.notdef /.notdef     % Codes 128-139 
  109. /.notdef /.notdef /.notdef /.notdef
  110. /.notdef /.notdef /.notdef /.notdef
  111. /.notdef /.notdef /.notdef /bullet      % Codes 140-159 
  112. /quoteleft /quoteright /guilsinglleft /guilsinglright
  113. /quotedblleft /quotedblright /quotedblbase /endash
  114. /emdash /minus /OE /oe
  115. /dagger /daggerdbl /fi /fl
  116. /space /exclamdown /cent /sterling      % Codes 160-191
  117. /currency /yen /brokenbar /section
  118. /dieresis /copyright /ordfeminine /guillemotleft
  119. /logicalnot /hyphen /registered /macron
  120. /degree /plusminus /twosuperior /threesuperior
  121. /acute /mu /paragraph /periodcentered
  122. /cedilla /onesuperior /ordmasculine /guillemotright
  123. /onequarter /onehalf /threequarters /questiondown
  124. /Agrave /Aacute /Acircumflex /Atilde    % Codes 192-223
  125. /Adieresis /Aring /AE /Ccedilla
  126. /Egrave /Eacute /Ecircumflex /Edieresis
  127. /Igrave /Iacute /Icircumflex /Idieresis
  128. /Eth /Ntilde /Ograve /Oacute
  129. /Ocircumflex /Otilde /Odieresis /multiply
  130. /Oslash /Ugrave /Uacute /Ucircumflex
  131. /Udieresis /Yacute /Thorn /germandbls
  132. /agrave /aacute /acircumflex /atilde    % Codes 224-255
  133. /adieresis /aring /ae /ccedilla
  134. /egrave /eacute /ecircumflex /edieresis
  135. /igrave /iacute /icircumflex /idieresis
  136. /eth /ntilde /ograve /oacute
  137. /ocircumflex /otilde /odieresis /divide
  138. /oslash /ugrave /uacute /ucircumflex
  139. /udieresis /yacute /thorn /ydieresis
  140. ] def
  141.  
  142.  
  143. % takes an array of strings and returns a single concatenated string 
  144. /_strcat
  145. {
  146.  dup 0 exch 
  147.  { length add } forall string       % create the new string (ar str)
  148.  0   3 -1 roll                %    str pos ar
  149.  {
  150.   dup length 2 index add        %    str pos elt next_pos
  151.   3 index exch                %    str pos elt str next_pos     
  152.   5 2 roll                %    str next_pos str pos elt
  153.   putinterval                %    str next_pos
  154.  } forall
  155.  pop                 
  156. } bind def
  157.  
  158. % default transfer function does nothing. It should build a 256 byte lookup
  159. % table to be used by stroke/fill/image operators
  160. {} settransfer
  161. % not actually used
  162. 60 0 {dup mul exch dup mul add 1 exch sub} setscreen
  163.  
  164. % a few debugging aids
  165.  
  166. /_pmove {( moveto ) print == (,) print == flush} bind def
  167. /_pline {( lineto ) print == (,) print == flush } bind def
  168. /_pcurve {( curveto ) print == (,) print == (,)
  169.               print == (,) print == (,) 
  170.               print == (,) print == flush } bind def
  171. /_pclose {( close ) print flush} bind def
  172. /ppath { /_pmove load /_pline load /_pcurve load /_pclose load pathforall } bind def
  173.  
  174. /cc {currentrgbcolor 2 index == ( ) print 1 index == ( ) print == (\n) print pop pop } bind def
  175.  
  176. % //########################################################################
  177. % you may change these but dont delete them
  178.  
  179. {exch def} /edef exch bind def
  180. 50 dict dup /statusdict exch def
  181. begin
  182. {pop} /setpagetype edef
  183. {pop pop pop} /setdefaulttimeouts edef
  184. {} /11x17tray edef
  185. {} /ledgertray edef
  186. {} /b5tray edef
  187. () /jobname edef
  188. 60 /manualfeedtimeout edef
  189. 81 /revision edef
  190. 0 /pagecount edef
  191. false /manualfeed edef
  192. {} /b4tray edef
  193. {pop} /setprintername edef
  194. {pop 9600 0} /sccbatch edef
  195. {pop} /setdostartpage edef
  196. {0} /pagetype edef
  197. {pop pop pop} /setsccinteractive edef
  198. {pop} /setjobtimeout edef
  199. 3 /ostype edef
  200. {pop pop} /setmargins edef
  201. {mark} /idlefonts edef
  202. false /dostartpage edef
  203. {cleartomark} /setidlefonts edef
  204. (IEEE) /realformat edef
  205. false /byteorder edef
  206. {pop true} /checkpassword edef
  207. (CPS Interpreter (C) Cambridge Animation Systems) /product edef
  208. {pop pop true} /setpassword edef
  209. 0 /jobtimeout edef
  210. {pop pop} /printererror edef
  211. {} /legaltray edef
  212. false /pagestackorder edef
  213. {} /a4tray edef
  214. {} /a3tray edef
  215. 40 /waittimeout edef
  216. () /osname edef
  217. {0 0} /margins edef
  218. {pop pop} /seteescratch edef
  219. {} /statementtray edef
  220. false /prefeed edef
  221. {} /lettertray edef
  222. {} /executivetray edef
  223. 712197348 /buildtime edef
  224. {pop 9600 0} /sccinteractive edef 
  225. {0 60 30} /defaulttimeouts edef
  226. {pop 0} /eescratch edef
  227. {()} /printername edef
  228. {pop pop pop} /setsccbatch edef
  229. end
  230.  
  231. % a few extras for userdict
  232. {} /lettersmall edef
  233. {} /legal edef
  234. {} /a4small edef
  235. {} /b4 edef
  236. {} /ledger edef
  237. {} /11x17 edef
  238. {} /letter edef
  239. {} /a4 edef
  240. {} /a3 edef
  241. {} /b5 edef
  242.  
  243.  
  244.  
  245.